home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / keymap.inc < prev    next >
Text File  |  1998-06-24  |  678b  |  28 lines
  1. pattern SetKeyMapDefault(_keyMap) is
  2.     push a6;
  3.     a0:=_keyMap;
  4.     a6:=KeymapBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # SETKEYMAPDEFAULT
  7.  
  8. pattern AskKeyMapDefault is
  9.     push a6;
  10.     a6:=KeymapBase; jsr [a6-36];
  11.     pop a6;
  12. endp;                                                            # ASKKEYMAPDEFAULT
  13.  
  14. pattern MapRawKey(_event,_buffer,_length,_keyMap) is
  15.     push a2\a6;
  16.     safe a0:=_event; a1:=_buffer; d1.l:=_length; a2:=_keyMap;;
  17.     a6:=KeymapBase; jsr [a6-42];
  18.     pop a2\a6;
  19. endp;                                                            # MAPRAWKEY
  20.  
  21. pattern MapANSI(_string,_count,_buffer,_length,_keyMap) is
  22.     push a2\a6;
  23.     safe a0:=_string; d0.l:=_count; a1:=_buffer; d1.l:=_length; a2:=_keyMap;;
  24.     a6:=KeymapBase; jsr [a6-48];
  25.     pop a2\a6;
  26. endp;                                                            # MAPANSI
  27.  
  28.